RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR FR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


a a a a a a a a a a tt a st st st st tt 
St st st St St Ht 
Att ta 4 tt SH St HH Ht tt 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
P P 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ARR 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 


DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDD DOD 
DDD DOD 
DOD DOD 
DOD DOD 
DDD DDD 
DDD DOD 
DDD DOD 
DDD DDD 
DDD DDD 
DOD DDD 
DDD DOD 
DDD DOD 
DOD DOD 
DDD DDD 
DOD DDD 
DDDDDDDDDDDD 

DDDDDDDDDDDD 


DDDDDDDDDDDD 


N 10 


**F ILE®*1De*DTE_DFOS 


me me me 

me me me 

me me 

me mn) 

me mm 

me me 
Talal me 
me me 
Soooooooooo 
SOooooooooo 

oo oo oo 

oo oo oo 

oo oo oo 

oo oo oo 

oo oo oo 

oo oo oo 
SoQOoOoooooooeo 
SOooooooooo 

wu 

wu 

ww wu 

wu wu 

rere rere 

wu wu 

wu rare 

wu rare 


anocaonaaoaanaa 
aaoaoanaanaaaa 
aa aa 
aa aa 
oa aa 
aa aa 
ao aa 
aa aa 
favovovololoyvololololololalo) 
aSooooofoAaAaABaaAaaaa 
‘es 
te 
‘t 
‘et 
‘es 
te 
‘et 
‘et 
‘et 
Le 
usu uu 
ue ‘od LU 
uu ka wus 
wu bu La Ud lk 
Lad Lk eee as as 
vere) Md usu 
wus pesres) wus 


[VU TSU TCU TUS PUN RU value reeree ve lvelvurey) 
I ds ds 


ee ee ee eens 
ee ee ee oon 


a 
os 
a 
a 
aoaoanocooaanaa 
aocoaonaoocaaoanan 
aa aa 
aa aa 
aa ao 
aa aa 
ao aa 
oa aa 
e2caoaoaoaonannaaaa 
aecoaoaoaooaaoaoaaaa 


Ce oe 


222222222222 

SEP LEEEEEEEEES 
== 

EEEEEEEEEEEESE 


See Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Os Oe Oe He Oe ee Oe Oe we Se ee 
eeeeneeeeee eee eee eee eee 


+ 
* 


Be Se Se Ge Be Se Be Se Se Be Be Se Se Se Be Be Se Be Se Se Se Ge Se we 
7 
zs 


DTE_DFO3.MAR; 1 


eTITL 3 §'t - Sample SET HOST/DTE dialer module 
-IDENT ‘v0%-000' 


—PARRBARBAAAAAAALALALALASESA LAS ALEAL ASAE AEE SELES ELSES ESE REE R RRR RRR RRR SEAS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, | MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS oo arrie iS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint AND ahd THE 


TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oompokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PRR RASAAASALASLALAASLALALLALE LALA SESE EEE RR EAR ASRS SAREE RASA RASA RAR RSE SE SS 


FACILITY: 


SET HOST/DTE 


ABSTRACT: 


Provide modem-specific support for autodialing on a ores — 
serve as example for other modem types. Activated as a 


rable 
image when SET HOST ttcn: /DTE /DIAL=(number:string, mODER TYPE= DFO3) 


is run. 


ENVIRONMENT : 


VAX/VMS, user mode. 


AUTHOR: Jake VanNoy, CREATION DATE: 11-Apr-1984 
MODIFIED BY: 
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SSHRDEF 
SSTSDEF 


: MACROS: 


REMS_FACILITY 
REM$—BADVALUE 
CR ="13 
LF = 10 
> OWN STORAGE: 


CTRLB_DESC: 


CTRLB_STR: 
CONN_DESC: 
CONNTS TR: LEN 
FAIL_DESC: 

FAILZSTR LEN 
READ_BUFFER: 
READ_STATUS: 
USER_CHAN: 


; INCLUDE FILES: 


> EQUATED SYMBOLS: 


1 
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; shared messages 
; status fields 


“KIFE 
= SHR$_BADVALUE !<REM$_FACILITY@16> 


1 ; Length 

0 ; will get filled in by code 
2 3"? te 3 
C 
0 
< 


ONN_STR_LEN ; Lenete A 
; will get filled in by code 
CR><LF>/Connection made to remote port/<CR><LF> 


FAIL_STR_LEN 3 Length 
; will get filled in by code 
<CR><LF>/Failed to connect to remote port/<CR><LF> 


0 ; read buffer 
0 3; 1/0 status 
3; completion status 


o oo 


; command channel own storage 


Cit 
Vv0é 
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-SBTTL DTE_DFO3 = DFO3 autodial routine 


- 
- 


FUNCTIONAL DESCRIPTION: 
Perform the necessary autodial protocol on a DFO3-AC modem. 
CALLING SEQUENCE: 
DIAL_ROUTINE (number_desc, port _chan, command chan) 
INPUT PARAMETERS: 
4(AP) = descriptor of string specified in NUMBER:string 
8(AP) = channel number of port DF03 is connected to 
12(AP) = channel number of user's terminal 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
RO - status 

SIDE EFFECTS: 
NONE 


number = 4 

port_chan = 8 

command_chan = 12 
- TRANSFER DIAL_ROUTINE 
- MASK DIAL_ROUTINE 


BR DIAL_ROUTINE#2 
-ENTRY DIAL_ROUTINE,“M<R2,R3,R4> 
— command_chan(AP) ,user_chan save for later 


Length of string 


) 
MOVL 4(R25 ,R4 ; address 


; Loop through string to check for illegal characters 


10$: 


PB #*A/=/,(R4) ; 's"* is pause character 


CM ; 
BEQL 20$ 3: branch if match 


number (AP) ,R2 : fetch address of descriptor 


_—<-—e ta CCC LLL 


CT 


<= 
Rs 


CMPB #*A/0/, (RS) : 
BGTRU ; 
CMPB #°A/9/, (KS) : 
BLSSU 308 3 

208: INCL R4 : 
SOBGTR Re 10$ 3 
BRB 40$ ; 
; error in number string 

30$:  PUSHL number (AP) ; 
PUSHL #1 : 
PUSHL #REM$_BADVALUE 3 
CALLS #3,G*CIBSSIGNAL . 
mOvL #EM$_BADVALUE !STSS$M_INHIB_MSG,RO 

408: ? 


> number string ok, continue. 
3 Queve read for character 


BSBW READ_CHAR : 
BLBC _—RO, 1008 : 


; Write string to modem 

MOVAB CTRLB_STR,CTRLB_DESC+4 
MOVAB CTRLB-DESC,R2 

BSBW  WRITE-STR 

BLBC ~—_- RO, 1008 


MOVL number (AP) ,R2 


BSBW =: WRITE_STR : 
BLBC ~=—_- RO, 100 : 
SHIBER_S : 
MOVL § READ_STATUS,RO : 


100$: 
RET 
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check for number 

Branch if less than legal 
check for number 

Branch if more than legal 
next character 

legal character, loop 
continue, number ok 


signal error 
number of FAO args 
error type 

error 

; return status 
return 


read status character 
exit on error 


set address 

*B initiates dial 
write string 

exit on error 


: fetch address of descriptor 


write number string 
exit on error 


wait for read to complete 
set status 


cil 
Vv0é 
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-SBTTL WRITE_STR = write string to port channel 


FUNCTIONAL DESCRIPTION: 

write a string to the DTE port 
CALLING SEQUENCE: 

BSBW = WRITE_STR 
INPUT PARAMETERS: 

R2 - address of descriptor to write 
COMPLETION CODES: 


Be Se Ge Ge Ge Oe Se Se Se Ge Se Se Se Se Oe Se Se Bee 


RO = status 
WRITE_STR: 
$Q10W_S - 
CHAN = port_chan(AP),- 3 channel 
FUNC = #10$_WRITEVBLK!IOSM_NOFORMAT,- ; write no format 
Pl = a4(R2),- ; address 
P2 = (R2) ; length 


RSB 


CT 
vo 
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SBTTL READ_CHAR = read status character from port 


FUNCTIONAL DESCRIPTION: 


Read the status character from the DF0O3, allowing a maximum 
of 60 seconds for the event to occur. 


CALLING SEQUENCE: 
BSBW  =- READ_CHAR 
INPUT PARAMETERS: 
NONE 


COMPLETION CODES: 


RO = status 
READ_ CHAR: 
$010_S - 
CHAN = port chan(AP) .~ ; channel 
FUNC = #10S_~READVBLK! 10$M_TIMED! 1OSM_PURGE ,- 


; read timed, purge 
; 1/0 status 


10SB = 10SB,- 
ASTADR = READ_DONE,- ; ast routine 


Pl = READ_BOFFER,- address 
P = #1,- Length 
P = #66 timeout 


RSB exit with status 


CT 
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»SBTTL READ_DONE = ast for read completion 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
; CALLed as AST routine 

> INPUT PARAMETERS: 

: NONE 

; COMPLETION CODES: 

3 RO = status 

.ENTRY READ_DONE ,“M<R2> 


MOVZWL 10SB,RO 
BLBC _— RO, 1008 


MOVZ7BL READ _BUFFER,R2 
PB ¢a/0/ fe 
MOVAB conn_desc,R2 


MOVAB conn_str,4(R2) 
BSBW WRITE STR_TO_USER 


BLEC = RO 
MOVL § #SS$_NORMAL RO 
BRB 100$ 


10$: 
MOVAB fail_desc,R2 
MOVAB fail str, 4(R2) 
BSBW WRITE STR TO_USER 
MOVZWL #SS$_RANGOP ,RO 


100$: MOVL — RO,READ_STATUS 


Check for timeout or status character 


et status of read 
ranch if timeout 


; fetch data 
; status ok? 
; branch if not 
; set up string 


set up string 
tell user, ready 
exit on error 
ready 

exit 


set up string 
set up string 
tell user, ready 
status 


save status 
wake main stream 


C} 
v¢ 
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- SBTTL WRITE_STR_TO_USER = write string to command channel 


FUNCTIONAL DESCRIPTION: 

write a string to the user terminal channel 
CALLING SEQUENCE: 

BSBW WRITE_STR_TO_USER 
INPUT PARAMETERS: 

R2 - address of descriptor to write 
COMPLETION CODES: 


RO - status 
WRITE_STR_TO_USER: 
$Q10W_S - 
CHAN = user_chan,- ; channel 
FUNC = #10$~WRITEVBLK,- : write 
P1 = @4(R2),- ; address 
P2 = (R2) ; length 
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